home *** CD-ROM | disk | FTP | other *** search
/ Apple Macintosh Fundamentals / MacintoshFundamentals-v2-0.iso / MacFun 2.0 / MF Maint / MF Maint / background_31659.txt < prev    next >
Encoding:
Text File  |  1990-03-08  |  5.3 KB  |  269 lines
  1. -- background: 31659 from stack: in
  2. -- bmap block id: 34100
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1?
  6. ----- HyperTalk script -----
  7. on Animate cardName, fromYourHandler
  8.   doOpenCard cardName, fromYourHandler
  9.   send MyAni to card cardName
  10. end Animate
  11.  
  12. on PlayAni aniName,begNo,endNo
  13.   repeat with n = begNo to endNo
  14.     animate aniName & n, fromAni
  15.   end repeat
  16. end PlayAni
  17.  
  18. on doOpenCard cardName, fromMsg
  19.   global gVisualEffect
  20.   if cardName is not empty then
  21.     set cursor to none
  22.     lock screen
  23.     -- put convertCard(cardName) into cardName
  24.     if first word of cardName is not "card"
  25.     then put "card" && kwote(cardName) into cardName
  26.     go cardName
  27.     do "send" && fromMsg && "to this card"
  28.     if gVisualEffect is not empty then
  29.       unlock screen with visual gVisualEffect
  30.     else
  31.       unlock screen
  32.     end if
  33.   end if
  34.   set cursor to none
  35.   send openAction to this cd
  36. end doOpenCard
  37.  
  38.  
  39.  
  40. -- part 16 (field)
  41. -- low flags: 01
  42. -- high flags: 0000
  43. -- rect: left=5 top=255 right=342 bottom=474
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 241
  48. -- text size: 14
  49. -- style flags: 0
  50. -- line height: 14
  51. -- part name: textdisplay
  52. ----- HyperTalk script -----
  53.  
  54. on mouseUp
  55.   lookUp
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 17 (field)
  61. -- low flags: 81
  62. -- high flags: 0007
  63. -- rect: left=0 top=200 right=237 bottom=84
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 241
  68. -- text size: 14
  69. -- style flags: 0
  70. -- line height: 14
  71. -- part name: Visuals
  72. ----- HyperTalk script -----
  73. -- visuals needed
  74.  
  75.  
  76. -- part 23 (field)
  77. -- low flags: 81
  78. -- high flags: 0007
  79. -- rect: left=0 top=236 right=271 bottom=84
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 241
  84. -- text size: 14
  85. -- style flags: 0
  86. -- line height: 14
  87. -- part name: Questions
  88. ----- HyperTalk script -----
  89. -- unanswered questions
  90.  
  91.  
  92. -- part 31 (field)
  93. -- low flags: 81
  94. -- high flags: 0007
  95. -- rect: left=0 top=274 right=327 bottom=481
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 241
  100. -- text size: 14
  101. -- style flags: 0
  102. -- line height: 14
  103. -- part name: text
  104. ----- HyperTalk script -----
  105. on mouseDown
  106.   DragSizeTarg
  107. end MouseDown
  108.  
  109. on mouseUp
  110.   global curTicks
  111.   if the ticks - curTicks < 30 then
  112.     doubleClick
  113.   end if
  114.   put the ticks into curTicks
  115. end mouseUp
  116.  
  117. on doubleClick
  118.   global curRect
  119.   if the rect of the target is "0,0,512,350" then
  120.     set the rect of the target to curRect
  121.   else
  122.     put the rect of  the target into curRect
  123.     set the rect of the target to "0,0,512,350"
  124.   end if
  125. end doubleClick
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134. -- part 41 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=487 top=221 right=242 bottom=508
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Up
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   goUp
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 43 (button)
  154. -- low flags: 00
  155. -- high flags: 2000
  156. -- rect: left=486 top=305 right=335 bottom=508
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Next
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   goNext
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 45 (button)
  173. -- low flags: 00
  174. -- high flags: 2000
  175. -- rect: left=486 top=34 right=63 bottom=508
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: OPTIONS
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   options
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 47 (button)
  192. -- low flags: 00
  193. -- high flags: 2000
  194. -- rect: left=486 top=263 right=293 bottom=508
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Previous
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   goPrev
  206. end mouseUp
  207.  
  208.  
  209.  
  210. -- part 50 (button)
  211. -- low flags: 00
  212. -- high flags: 2000
  213. -- rect: left=486 top=107 right=135 bottom=508
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: Panic
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   goPanic
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 51 (field)
  230. -- low flags: 01
  231. -- high flags: 0000
  232. -- rect: left=204 top=309 right=342 bottom=472
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 65535
  236. -- font id: 238
  237. -- text size: 10
  238. -- style flags: 0
  239. -- line height: 10
  240. -- part name: dir
  241.  
  242.  
  243. -- part 52 (field)
  244. -- low flags: 01
  245. -- high flags: 2000
  246. -- rect: left=0 top=0 right=35 bottom=512
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 158
  251. -- text size: 24
  252. -- style flags: 10240
  253. -- line height: 24
  254. -- part name: title
  255.  
  256.  
  257. -- part 53 (field)
  258. -- low flags: 81
  259. -- high flags: 0000
  260. -- rect: left=316 top=6 right=35 bottom=482
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 65535
  264. -- font id: 156
  265. -- text size: 16
  266. -- style flags: 10240
  267. -- line height: 21
  268. -- part name: subtitle
  269.